function [mode, smode] = getdatamode()
htag = findobj('Tag', 'FileMode');
if(~ishandle(htag))
    QueMessage('? Cannot access filemode - using CC');
    mode = 1;
    return
end
mode = get(htag, 'Value');
str = get(htag, 'String');
smode = str(mode,:);
return;

